Client传送名字，功能很简单，所以就找了网络上的范例来修改， Client端执行画面与程序代码: Imports System.NetImports System.Net.SocketsImports System.TextModule Module1Sub Main()Dim port As Integer = 12345Dim udpClient As New UdpClient()TryudpClient.Connect(localhost， port)Console.Write(请输入你的名字: )Dim inputString As String = Console.ReadLine()Dim sendBytes As [Byte]() = Encoding.UTF8.GetBytes(inputString)udpClient.Send(sendBytes， 名字」， sendBytes.Length， RemoteIpEndPoint)Console.WriteLine(传回资料: sendData)Console.WriteLine()End WhileudpClient.Close()Catch e As ExceptionConsole.WriteLine(e.ToString())End TryEnd SubEnd Module 附件： ，因为学校的信息网络课程要写一个TCP或UDP的联机程序， receiveDataDim sendBytes As [Byte]() = Encoding.UTF8.GetBytes(sendData)udpClient.Send(sendBytes。

Server会回传「早上好， 我根据UdpClient 类别里面的范例，写了Server/Client的程序， port)While (True)Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)Dim receiveData As String = Encoding.UTF8.GetString(receiveBytes)Console.WriteLine(收到资料: receiveData)Console.WriteLine(来自 RemoteIpEndPoint.Address.ToString() : RemoteIpEndPoint.Port)Dim sendData As String = 早上好。

sendBytes.Length)Dim receiveBytes As [Byte]() = udpClient.Receive(udpClient.Client.LocalEndPoint)Dim returnData As String = Encoding.UTF8.GetString(receiveBytes)Console.WriteLine(returnData.ToString())udpClient.Close()Catch e As ExceptionConsole.WriteLine(e.ToString())End TryConsole.ReadKey()End SubEnd Module Server端执行画面与程序代码: Imports System.NetImports System.Net.SocketsImports System.TextModule Module1Sub Main()Dim port As Integer = 12345Dim udpClient As New UdpClient(port)TryDim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any，。